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

' Button50.Visible = True
daseta.Clear()
objConn.Open()
daol.SelectCommand = New OleDbCommand(strsql, objConn)
daol.Fill(daseta, "tabella")
datagrid.DataSource = daseta
datagrid.DataMember = "tabella"
Dim bindingSource1 As New BindingSource
bindingSource1.DataSource = daseta.Tables(0)
BindingNavigator1.BindingSource = bindingSource1
datagrid.DataSource = bindingSource1

objConn.Close()


End Sub