Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC

Module Module_koneksi

Dim connection As New OdbcConnection("DSN=NAMADSN;")

Private Sub connection_open()

Try

If connection.State <> ConnectionState.Closed Then connection.Close()

connection.Open()

Catch ex As Exception

End Try

End Sub

Private Sub connection_close()

Try

If connection.State <> ConnectionState.Open Then connection.Open()

connection.Close()

Catch ex As Exception

End Try

End Sub

End Module