Visual Basic

Is the following code correct to load table field data to ComboBox? It is working fine but would like to know whether it is the perfect one.

Public Function cboLoadPlants()
        Dim dt As DataTable = DAL.LoadData("SELECT DISTINCT Trim(Company) As [Company] FROM CompaniesTable").Tables(0)
        cboCompany.ValueMember = "Company"
        cboCompany.DataSource = dt
        cboCompany.SelectedIndex = 0
        Return True
        txtSearch.Select()
    End Function

hi,

can i create sql query in query builder by selecting sql views instead of selecting sql tables??
please someone help me...!

Public Sub FilllstItem2(ByVal sItemEntered As Integer) Dim dtInv As DataTable = dsRpt.Tables("tblItemData") Dim dv As New DataView(dtInv) Dim i As Integer
    With dv
         .RowFilter = "RecordID = '" & Variables.g_strCatId & CType(sItemEntered, String) & "'"
         .Sort = "RecordID"
     End With
     If dv.Count > 0 Then
         For i = 0 To dv.Count - 1
             lstboxItems.Items.Add(CType(dv.Item(i)("ItemNo"), String) & " - " & CType(dv.Item(i)("Description"), String))
         Next i
     Else
     End If
     dv.Dispose()
     ReDim itemArray(lstboxItems.Items.Count)

End Sub

Imports System.Data.OleDb
Public Class Inquiry_Form
    Dim provider As String
    Dim dataFile As String
    Dim connstring As String
    Dim myConnection As OleDbConnection = New OleDbConnection

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        dataFile = "Database3.mdb"
        connstring = provider & dataFile
        myConnection.ConnectionString = connstring
        myConnection.Open()
        Dim str As String
        str = "INSERT INTO Inquiry_Form([Date],[RefNo],[NameP],[Address],[Age],[PhoneNo],[MobileNo],[EmailAd],[ReferralQuestion],[Type_of_Unit],[Date_of_Purchase],[Purpose_of_Purchase],[Monthly_Income],[RName],[RAddress],[RMobileNo],[R2Name],[R2Address],[RMobileNo],[R2Name],[R2Address],[R2MobileNo],[AgentsName]) Values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        cmd.Parameters.Add(New OleDbParameter("Date", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RefNo", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("NameP", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Address", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("PhoneNo", CType(TextBox6.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("MobileNo", CType(TextBox8.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("EmailAd", CType(TextBox7.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("ReferralQuestion", CType(ComboBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Type_of_Unit", CType(ComboBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Date_of_Purchase", CType(ComboBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Purpose_of_Purchase", CType(ComboBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Monthly_Income", CType(ComboBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RName", CType(TextBox10.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RAddress", CType(TextBox11.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RMobileNo", CType(TextBox15.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2Name", CType(TextBox12.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2Address", CType(TextBox13.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2MobileNo", CType(TextBox14.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("AgentsName", CType(TextBox16.Text, String)))

        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox8.Clear()
            TextBox7.Clear()
            TextBox10.Clear()
            TextBox11.Clear()
            TextBox15.Clear()
            TextBox12.Clear()
            TextBox13.Clear()
            TextBox14.Clear()
            TextBox16.Clear()

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
        Menu_Page.Show()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)
        Inquiry_FormBindingSource1.AddNew()
    End Sub

    Private Sub Inquiry_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database3DataSet.Inquiry_Form' table. You can move, or remove it, as needed.
        Me.Inquiry_FormTableAdapter.Fill(Me.Database3DataSet.Inquiry_Form)

    End Sub


End Class