Visual Basic

<code>ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(ScanHistoryList)
ComboBox2.SelectedIndex = 0</code>

Sub Temp(ByVal myConnString As String)
    Dim mySelectQuery As String = "SELECT MAX(TicketID) AS Expr1 FROM tblTicket"
    Dim myConnection As New Data.SqlClient.SqlConnection(myConnString)
    Dim myCommand As New Data.SqlClient.SqlCommand(mySelectQuery, myConnection)
    myConnection.Open()
    Dim myReader As Data.SqlClient.SqlDataReader
    myReader = myCommand.ExecuteReader()
    myReader.Close()
    myConnection.Close()
End Sub

Private WithEvents cnnDonorDb As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\DICDonorDb\DICDornorDb.mdb'; Persist Security Info=False")

Dim cmdOrgType As New OleDbCommand
        With cmdOrgType
            .Connection = cnnDonorDb
            .CommandType = CommandType.Text
            .CommandText = "SELECT * FROM tblOrgType.OrgType ORDER BY tblOrgType.OrgType;"
        End With

        ' Open the connection.
        cmdOrgType.Connection.Open()
        ' Execute the command to the return the list of organization type.
        cmdOrgType.ExecuteReader() ' HERE IS THE PLACE THAT I GET AN ERROR
        Dim drdResult As OleDbDataReader

        ' Get the list of organization type and put it in the list box.
        While drdResult.Read
            For colOrgType As Integer = 0 To drdResult.FieldCount - 1
                lsbOrgInfo.Items.Add(drdResult(colOrgType).ToString)
            Next

        End While
        ' Close the result.
        drdResult.Close()
        ' Close the connection
        cmdOrgType.Connection.Close()

Could not find file 'C:\Documents and Settings\roathkanel\My Documents\Visual Studio 2005\Projects\DIC Donor Database\DIC Donor Database\bin\Debug\tblOrgType.mdb'.