مساعدة في اضافة سجل لجميع الزبناء

PHP كود :
Private Sub Form_Load()
    ' تحميل البيانات في DataGrid عند تحميل النموذج
    LoadDataGrid
End Sub

Private Sub LoadDataGrid()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String

    ' فتح الاتصال بقاعدة البيانات
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabase.mdb;"
    
    ' استعلام لجلب البيانات من جدول الاستهلاكات
    sql = "SELECT Consumptions.ConsumptionID, Customers.CustomerName, Consumptions.Month, Consumptions.ConsumptionValue " & _
          "FROM Consumptions INNER JOIN Customers ON Consumptions.CustomerID = Customers.CustomerID"
    
    rs.Open sql, conn, adOpenStatic, adLockOptimistic
    
    ' ربط البيانات بـ DataGrid
    Set DataGrid1.DataSource = rs
    
    ' إغلاق الاتصال بقاعدة البيانات
    rs.Close
    conn.Close
End Sub

Private Sub btnAddConsumption_Click()
    Dim conn As New ADODB.Connection
    Dim rsCustomers As New ADODB.Recordset
    Dim rsConsumptions As New ADODB.Recordset
    Dim month As String
    Dim consumptionValue As Double
    
    ' تحديد الشهر الجديد والقيمة الافتراضية للاستهلاك
    month = InputBox("أدخل الشهر الجديد:", "إضافة استهلاك جديد", "فبراير")
    consumptionValue = 0 ' يمكنك تعيين قيمة افتراضية أو طلبها من المستخدم
    
    ' فتح الاتصال بقاعدة البيانات
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabase.mdb;"
    
    ' جلب جميع الزبناء
    rsCustomers.Open "SELECT * FROM Customers", conn, adOpenStatic, adLockOptimistic
    
    ' فتح جدول الاستهلاكات لإضافة سجلات جديدة
    rsConsumptions.Open "SELECT * FROM Consumptions", conn, adOpenDynamic, adLockOptimistic
    
    Do While Not rsCustomers.EOF
        ' إضافة سجل استهلاك جديد لكل زبون
        rsConsumptions.AddNew
        rsConsumptions("CustomerID").Value = rsCustomers("CustomerID").Value
        rsConsumptions("Month").Value = month
        rsConsumptions("ConsumptionValue").Value = consumptionValue
        rsConsumptions.Update
        
        rsCustomers.MoveNext
    Loop
    
    ' تحديث DataGrid
    LoadDataGrid
    
    ' إغلاق الاتصالات
    rsCustomers.Close
    rsConsumptions.Close
    conn.Close
    
    MsgBox "تم إضافة الاستهلاك الجديد لجميع الزبائن.", vbInformation
End Sub