在VB中，可以使用ADO.NET来读取SQL数据库的数据。ADO.NET提供了一系列的类和方法来与数据库进行交互。
下面是一个读取数据库数据的示例代码：
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"
Dim query As String = "SELECT * FROM YourTableName"
Using connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(query, connection)
connection.Open()
Dim reader As SqlDataReader = command.ExecuteReader()
If reader.HasRows Then
While reader.Read()
Console.WriteLine("ID: {0}, Name: {1}", reader("ID"), reader("Name"))
End While
Else
Console.WriteLine("No rows found.")
End If
reader.Close()
End Using
End Sub
End Module
在上面的示例代码中，首先需要定义连接字符串(connectionString)来连接数据库。然后定义查询语句(query)来获取数据。接着创建一个SqlConnection对象来建立与数据库的连接。通过SqlCommand对象执行查询语句，并使用ExecuteReader方法返回一个SqlDataReader对象。最后使用SqlDataReader对象读取数据库中的数据。
请注意替换连接字符串中的YourServerName、YourDatabaseName、YourUsername和YourPassword为实际的数据库信息，以及YourTableName为实际的表名。
此外，还可以使用其他方式来读取数据库数据，例如使用Entity Framework或LINQ to SQL等。具体使用哪种方式取决于你的需求和个人偏好。
