Visual Basic

Luc Pattyn wrote:

I prefer to eat the pudding, rather than to look for the boxes.

Public Sub ConnectToAccess()
    Dim conn As New System.Data.OleDb.OleDbConnection()
     conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath.dbPath & ";Persist Security Info=False;"

        Try
       conn.Open()
       .......
    Catch ex As Exception
       conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & databasePath.dbPath & ";User ID=Admin;Password="
    conn.Open()
........
    Finally
       conn.Close()
    End Try
End Sub

HourTextBox : MinuteTextBox : SecondsTextBox AmPmTextBox  UpButton
                                                          DownButton