[Adil Idabdellah]

اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا