Como um formulario recebe a variavel da consulta ao Banco de Dados de outro formulario. Segue abaixo o código do formulário que faz a consulta ao BD, preciso que outro formulário receba a variável: codigo  Private Sub cmdEntrar_Click() Set rs = CreateObject("ADODB.Recordset") With rs .Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimistic  If .RecordCount = 0 Then MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro" Else  codigo = CLng(rs("cod_usuario"))  frmPrincipal.Show Unload Me End If .Close End With End Sub