Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=localhost;" _
                        & "PORT=3306;" _
                        & "DATABASE=user;"

Private Sub Command1_Click()
Dim SearchFile As String
Dim FileName As String

If Drive1.Drive = "c:" Then
    SearchFile = Dir$("C:\*.*")
        While SearchFile <> ""
            List1.AddItem (SearchFile)

Private Sub Command2_Click()


If Adodc1.Recordset.EOF = True Then
    MsgBox ("No more Records")
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True

End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF = True Then
    MsgBox ("No more Previous

Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim Counter As Integer


str1 = Text1.Text
str2 = Text2.Text
str3 = Text3.Text

For i = 1 To Len(str3)
    Counter = i + 1
    If Mid$(str3, i, 1) =

Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String


str1 = Text1.Text
str2 = Text2.Text
str3 = Text3.Text

If Mid(str1, 1, 1) = str2 Then
    Mid(str1, 1, 1) = str3
    Label4.Caption = Mid(str1, 1)

End If