Formulário receber variável de outro formulário

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árioreceba a variável: codigoPrivate 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, adLockOptimisticIf .RecordCount = 0 ThenMsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"Elsecodigo = CLng(rs("cod_usuario"))frmPrincipal.ShowUnload MeEnd If.CloseEnd WithEnd Sub