Dim da1 As New OleDbDataAdapter
Dim daset1 As New DataSet


Private Sub Button125_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button125.Click


objConn.Open()
strsql = "select Data,TipoOperazione,IDoperazione from registro"

dettagli1(da1, strsql, DataGrid11, daset1, "Registro Vidimato")


End Sub



Public Sub dettagli1(ByVal daol As OleDbDataAdapter, ByVal strsql As String, ByVal datagrid As DataGrid, ByVal daseta As DataSet, ByVal stringa As String)

' Button50.Visible = True
daseta.Clear()
objConn.Open()
daol.SelectCommand = New OleDbCommand(strsql, objConn)
daol.Fill(daseta, "spese")
datagrid.DataSource = daseta.Tables("spese")
datagrid.SetDataBinding(daseta, "spese")
objConn.Close()
' tblClienti = daseta.Tables("spese")
' Button49.Text = tblClienti.Rows(0).Item(0)
' daset = tblClienti.DataSet
objConn.Close()

datagrid.CaptionText = stringa
End Sub