'Connect to the database
        custcon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "\..\..\Transport.mdb")
        custcon.Open()

        'Establish School command object
        custcom = New OleDbCommand("Select * From Repairs", custcon)
        custcom2 = New OleDbCommand("Select VehicleID From Vehicle", custcon)

        'Establish School data adapter/data table
        custadap = New OleDbDataAdapter
        custadap2 = New OleDbDataAdapter
        custadap.SelectCommand = custcom
        custadap2.SelectCommand = custcom2
        custtab = New DataTable
        custtab2 = New DataTable
        custadap.Fill(custtab)
        custadap2.Fill(custtab2)

        'Bind controls
        txtID.DataBindings.Add("Text", custtab, "RepairsID")
        txtcost.DataBindings.Add("Text", custtab, "Amount")
        txtdes.DataBindings.Add("Text", custtab, "Description")
        DateTimePicker1.DataBindings.Add("Text", custtab, "Done")
        cboVic.DataBindings.Add("Text", custtab, "VehicleID")

        'Populate the combobox
        Me.cboVic.DataSource = Me.custtab2
        Me.cboVic.DisplayMember = "VehicleID"
        Me.cboVic.ValueMember = "VehicleID"