Visual Basic - no se puede utilizar la conexion para realizar esta operacion

Que tal amigos,
Estoy comenzando con visual basic y ado y se me planteó el primer conflicto que no se cómo resolver, les comento en un módulo coloqué lo siguiente para conectarme a mi base:

Global base As New ADODB.Connection
Global RsUsuarios As New ADODB.Recordset
Global UsuarioActual As String

Sub main()
With base
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Base1.mdb;Persist Security Info=False"
FrmLogin.Show
End With
End Sub

Sub Usuarios()
With RsUsuarios
If .State = 1 Then Close
.Open "select * from PERSONAL", base, adOpenStatic, adLockOptimistic ''
End With
End Sub

Luego en el FrmLogin en el evento load coloqué

Private Sub Form_Load()
Usuarios
End Sub

El problema es que me tira el siguiente error:
"No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto" y al cerrar esta ventana me remite a la línea del Sub Usuarios

.Open "select * from PERSONAL", base, adOpenStatic, adLockOptimistic ''

Qué estoy haciendo mal????
Gracias!

If .State = 1 Then ""Close"""

si (rsusuarios).state = 1 then me cierro