vb用mysql数据库查询语句怎么写

Imports MySql.Data.MySqlClient

Module Module1
    Sub Main()
        ' 数据库连接字符串
        Dim connectionString As String = "Server=your_server_address;Database=your_database_name;Uid=your_username;Pwd=your_password;"
        
        ' 创建连接
        Using connection As New MySqlConnection(connectionString)
            Try
                ' 打开连接
                connection.Open()
                
                ' 创建命令
                Dim command As New MySqlCommand("SELECT * FROM users", connection)
                
                ' 创建数据读取器
                Using reader As MySqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        Console.WriteLine("ID: " & reader.GetInt32(0))
                        Console.WriteLine("Username: " & reader.GetString(1))
                        Console.WriteLine("Email: " & reader.GetString(2))
                    End While
                End Using
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            End Try
        End Using
    End Sub
End Module