Dim mycn As SqlConnectionDim myda As SqlDataAdapterDim ds As DataSet
mycn =
New SqlConnection("server = localhost;uid=sa;password=;database=northwind")
myda =
New SqlDataAdapter("Select Employeeid, FirstName , LastName from employees", mycn)
ds =
New DataSet()
myda.Fill(ds, "Employees")
Dim dc As DataColumnDim dr As DataRowFor Each dr In ds.Tables(0).RowsDim trow As New TableRow()For Each dc In ds.Tables(0).ColumnsDim tcell As New TableCell()