Visual Basic - Como Saber si la BD esta abierta???

Buenas me gustaria saber si existe alguna forma de saber si una BD esta abierta.

yes!
if bede estaabierta entones lo está y si no es que no lo está.
ahora lo traduces al ingles americano y seguro que te funciona.
PD si no sabes ingles americano seguro que alguien te ayuda

If dta_env.rsMACTIVID.Open = True Then
dta_env.rsMACTIVID.Close
End If

lo estoy usando de esta manera y me da error en el open.

me dice que se esperaba una funcion o variable.

Mira si es por el ADODB pues es lo siguiente:

if conexion.State = adStateOpen then
Con conexión
else
Sin conexión
end if