Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
    Handles Button2.Click
 
        Dim sql1 As String = "SELECT * from tbl_Users"
        cmd = New OleDbCommand(sql1, objConnection)
        objDataAdapter = New OleDbDataAdapter(cmd)
 
        Try
            Dim cb As New OleDbCommandBuilder(objDataAdapter)
            objDataAdapter.Update(DsUsers, "tbl_Users")
        Catch Ex As Exception
            MsgBox(Ex.ToString())
        End Try
 
    End Sub