Inclusão de Registro!

>
Private cn As ADODB.Connection

Private rs As ADODB.Recordset

>
Private Sub cmdOk_Click()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Banco.mdb;Persist Security Info=False"

cn.Open

sql = "select * from Login where Nome = '" & txtNome.Text & "' and Senha = '" & txtSenha.Text & "'"

rs.Open sql, cn

If rs.EOF Then

MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"

Else

frmGerenciamento.Show

Unload Me

End If

rs.Close

cn.Close

End Sub

este é o codigo q eu uso para fazer o login

como eu faria pra fazer um codigo de inclusão INSERT INTO?