Cita: MiRecordset.Open "Select char_name, online From characters" _
& "Where char_name=[GM]Darky", MiConexion, adOpenDynamic, adLockOptimistic
Para empezar te falta darle un espacio despues de
characters para que no lo tengas junto al
Where en tu concatenacion.
Checalo...
Saludos