Imports System.Data.Odbc Delegate Sub FunctionCall(ByVal param) Public Class MainForm Dim sql As String Private con As New OdbcConnection("DSN=db") Dim cmd As OdbcCommand = Nothing Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try con.Open() Catch ex As Exception MsgBox("Error Creating DB Connection") End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)