Dim strSQL As String
Dim objReader As SqlDataReader
Dim objCmd As SqlCommand
Dim resultDt As DataTable = New DataTable()
strSQL = " SELECT * from tab "
objCmd = New SqlCommand(strSQL, objConn)
objReader = objCmd.ExecuteReader()
resultDt.Load(objReader)