Private Delegate Function fillDelegate1() As Integer
 
Dim d As New fillDelegate1(AddressOf sqlcn.Open)
Try
Dim iar As IAsyncResult = d.BeginInvoke(Nothing, Nothing)
                    While Not iar.IsCompleted
 
                    End While
                Catch ex As Odbc.OdbcException
                    MsgBox(ex.Message)
                End Try