在VB中读取SQL数据库数据可以使用ADO.NET技术。以下是一个简单示例代码：

引用System.Data.SqlClient命名空间

Imports System.Data.SqlClient

创建数据库连接对象并打开连接

Dim connStr As String = "Data Source=myServerAddress;Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword;"Dim conn As New SqlConnection(connStr)conn.Open()

创建SQL查询语句并执行

Dim query As String = "SELECT * FROM myTable"Dim cmd As New SqlCommand(query, conn)Dim reader As SqlDataReader = cmd.ExecuteReader()

读取数据

While reader.Read()Dim value1 As String = reader("column1").ToString()Dim value2 As Integer = CInt(reader("column2"))'处理读取到的数据End While

关闭连接和释放资源

reader.Close()conn.Close()conn.Dispose()

以上示例代码演示了如何连接到数据库，执行查询语句并读取数据。在实际应用中，可以根据具体需求修改查询语句和处理读取数据的逻辑。