Dim query As String = "SELECT [Order ID], [Customer] FROM Orders"
Dim conn As New SqlCeConnection(connString)
Dim cmd As New SqlCeCommand(query, conn)
conn.Open()
Dim rdr As SqlCeDataReader = cmd.ExecuteReader()
Try
' Iterate through the results
'
While rdr.Read()
Dim val1 As Integer = rdr.GetInt32(0)
Dim val2 As String = rdr.GetString(1)
End While
Finally
' Always call Close when done reading
'
rdr.Close()
' Always call Close when done reading
'
conn.Close()
End Try