vb远程读取内网数据库

Imports System.Data.Odbc

Module Module1
    Sub Main()
        Dim connectionString As String = "DRIVER={SQL Server};SERVER=192.168.1.100,1433;DATABASE=MyDatabase;UID=myUsername;PWD=myPassword"
        Dim connection As OdbcConnection = New OdbcConnection(connectionString)
        
        Try
            connection.Open()
            Dim command As OdbcCommand = New OdbcCommand("SELECT * FROM MyTable", connection)
            Dim reader As OdbcDataReader = command.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine(reader("ColumnName").ToString())
            End While
            
            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
        
        Console.ReadLine()
    End Sub
End Module