Created On: 7/14/2005 1:50:00 PM Dim oDa As New SqlClient.SqlDataAdapter Dim oDs As New DataSet Dim oCommand As New SqlClient.SqlCommand Dim oConn As New SqlClient.SqlConnection oConn.ConnectionString = "Server=testserver;user id=sa;initial catalog=northwind" oConn.Open() With oCommand .CommandText = "select top 100 * from customers" .Connection = oConn End With With oDa .SelectCommand = oCommand .Fill(oDs, "tmpTable") End With |