Dim myConnString As String = "DRIVER={MySQL ODBC 5.1 Driver};" + _
                                     "SERVER=서버IP;" + _
                                     "Port=폰트명;" + _
                                     "DATABASE=DB명;" + _
                                     "UID=계정명;" + _
                                     "PASSWORD=암호;"

        Dim myConnection As OdbcConnection
        myConnection = New OdbcConnection(myConnString)

        Dim sql As String = "SELECT dname FROM dept; "

        Dim cmd As OdbcCommand = New OdbcCommand(sql, myConnection)

        myConnection.Open()

        Dim rd As String

        rd = cmd.ExecuteScalar

        MsgBox(rd)

        myConnection.Close()

Dim dbSql As String = "insert into dept(dname) values ('test');"
Dim dbCmd As OdbcCommand = New OdbcCommand(dbSql, myConnString )

myConnection.Open()
dbCmd.ExecuteNonQuery()
myConnection.Close()