الرجاء المساعدة في حل هذه المشكلة
 

الرجاء المساعدة في حل هذه المشكلة
عندما اقوم بعمل run يظهر لي ان هذا الكود فيه خطأ فما هو هذا الخطأ برايكم
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Connection()
RsSearch = New ADODB.Recordset
RsSearch.Open("select * from table1 ", con, 1, 2, )
Call ShowRecord()
End Sub