Amigo grato pela atenção. Só que que a variável já está no módulo. deixe eu reformular: no módulo tem: Option Explicit Public con As New ADODB.Connection Public rs As New ADODB.Recordset Public comando As ADODB.Command Public nomedoaluno As String Public val As Currency Sub main() Form1.Show opendb con.CursorLocation = adUseClient End Sub Sub opendb() 'abrir conexão Set con = New ADODB.Connection con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DADOS.MDB;Persist Security Info=False" con.CursorLocation = adUseClient End Sub Public Sub closebd() 'fecha conexão If con.State = 1 Then MsgBox "Sucesso na conexão" Else MsgBox "Banco não conectado" Set con = Nothing End Sub ---------------------------------------------------- NO ROM DO LOGIN FORM1) TEM: Private Sub Form_Load() opendb Set rs = Nothing Set rs = New ADODB.Recordset rs.Open "SELECT* from lista", con, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub tenho 1 banco de dados com o nome DADOS 2 tabelas com onome lista (tabela de login com os campos id_nome e nome a outra tabela se chama lista1 que tem os campos id_nome e nota só quero logar e permanecer logado co o nome correto e as notas ir para o campo nota da tabela referente a pessoa que logou Se podee me ajudar eu ficarei super agradecido