Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim meuarrey(1 To 7) As String
Dim contador As String

Private Sub Command1_Click()
If conectar_banco(Text3.Text, Text4.Text) Then
contador = 0
If rs.EOF Then
rs.MoveFirst
End If
While Not rs.EOF
RichTextBox1.Text = RichTextBox1.Text & "usuario: " & rs(1) & " Password: " & rs(2) & Chr(13)
contador = contador + 1
rs.MoveNext
Wend
MsgBox "Nmero de Clientes: " & contador, vbInformation
End If
End Sub

Private Sub Command2_Click()
If conectar_banco(Text3.Text, Text4.Text) = True Then

While Not rs.EOF
If Text1.Text = rs(1) And Text2.Text = rs(2) Then
MsgBox "Acesso Permitido!", vbInformation + vbYesNo
Command1.Enabled = True
Exit Sub
Else
rs.MoveNext
End If
Wend
If rs.EOF Then
MsgBox "Acesso negado!", vbCritical + vbExclamation + vbOKOnly
End If
End If



 
 
End Sub

Private Sub Command3_Click()
  'chamar formulario
  Form2.Show
End Sub

Private Sub Form_Load()

 meuarrey(1) = "domingo"
 meuarrey(2) = "segunda"
 meuarrey(3) = "terca"
 meuarrey(4) = "quarta"
 meuarrey(5) = "quinta"
 meuarrey(6) = "sexta"
 meuarrey(7) = "sabado"

 Label2.Caption = meuarrey(7)
 Label1.Caption = chamar_funcao(Now)

End Sub

Function chamar_funcao(data) As String
  
  chamar_funcao = Day(Now) & "/0" & Month(Now) & "/" & Year(Date)

End Function

Function conectar_banco(banco, tabela) As Boolean
 
 conectar_banco = False
 
 Set conn = New ADODB.Connection
 conn.Open ("dsn=" & banco)
sql = "select *from " & Text4
 Set rs = conn.Execute(sql)
 
 If Not rs.EOF Then
  rs.MoveFirst
  conectar_banco = True
 End If
 
End Function

Function inserir_dados(banco, tabela) As Boolean
 
 inserir_dados = False
 
 Set conn = New ADODB.Connection
 conn.Open ("dsn=" & banco)
 sql = "insert into " & tabela & " (username, password) values ("
 sql = sql & "'" & Text1 & "'" & "," & "'" & Text2 & "')"
 conn.Execute (sql)
  inserir_dados = True
End Function

Private Sub Command1_Click()
If inserir_dados("abc", "usuario") = True Then
    MsgBox "cliente cadastrado!", vbInformation + vbOKCancel
    Else
    MsgBox "Erro no sistema!", vbCritical + vbExclamation + vbOKCancel
    End If
End Sub