Public Function GetCustomers() As DataTable
            Dim oAdapter As SqlClient.SqlDataAdapter = New _
              SqlClient.SqlDataAdapter
            Dim oDataSet As DataSet = New DataSet
 
            oAdapter.SelectCommand = New SqlCommand
            oAdapter.SelectCommand.Connection = Connection
            oAdapter.SelectCommand.CommandText = "spCustomer_GetCustomers"
            oAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
            oAdapter.Fill(oDataSet)
 
            Return oDataSet.Tables(0)
        End Function