[محمد الحريري]

السلام عليكم و رحمة الله و بركاتة بعد اطيب السلام و افضل التحية 
احتاج الي مساعدتكم في تعريف الارتباط فعند البدء ي بداية تشغيل المشروع يظهر لي ان توجد مشكلة مع العلم لا توجد مشاكل في التكويد 

PHP كود :

  Public Sub openconnection()
        Dim sql = "select processor from login WHERE idsetting = " & 1 & " "
        Dim adp As New OleDbDataAdapter(sql, accses_Con)
        Dim ds As New DataSet
هنا تكمن مشكلة التوقف         adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            Dim dr = dt.Rows(0)
            sqls = dr!processor
        End If
        If sqlconn.State = 1 Then sqlconn.Close()
        Try
            sqlconn.ConnectionString = sqls
            sqlconn.Open()