مشكل هنگام يافتن مقدار يك فيلد از ديتابيس

[zahracomputer]

سلام و خشته نباشيد
من مي خواستم يك جستجو در ديتابيس انجام بدم و در صورتي كه ركودي با مقدار وارد شده در text براي فيلد S# موجود نباشد، اين مقادير در جدول ثبت شود. كد زير را نوشتم ولي هنگام اجرا خطا ميده و من نتيجه ای‌ نميگيرم. لطفاً ايراد كار من كجاست؟
با تشكر


Dim SelString As String
SelString = "select * from Supplier where s#='" + Text1.Text + "'"
Call connectP(SelString)

سپس در يك ماژول زير برنامه connctp را بصورت زير تعريف كردم ام

Public strCon As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset
Public Sub connectP(s As String)
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=project;Data Source=NET\SQLEXPRESS"
strCon.Open
cmd.ActiveConnection = strCon
cmd.CommandText = s
Set rs = cmd.Execute()
If rs.RecordCount = 0 Then
MsgBox "INSERT A VALID NUMBER"
End If
strCon.Close
End Sub

با تشكر

[zahracomputer]

ممنون ميشم آدرس دقيق سايت ذو بفرماييد

[javadt]

http://www.vb-helper.com/

[zahracomputer]

سلام و ممنون
اين سايت كدهاي net. رو داره من در vb6 نياز دارم اين كار رو انجام بدم. كسي نميدونه؟
ممنون

[zahracomputer]

سلام و خسته نباشيد
من كد فوق را به شكل زير تغيير دادم

Set rs = New ADODB.Recordset
Set strCon = New ADODB.Connection
Set cmd = New ADODB.Command
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=(local)\sqlexpress"
strCon.Open
cmd.ActiveConnection = strCon
cmd.CommandText = "select * from tbl where name='" + Text1.Text + "'"
Set rs = cmd.Execute
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("name") = Text1.Text Then
MsgBox "y"
Else
MsgBox "n"
End If
Wend
ولي خطاي زير را ميده

Run-time errore '91':
Object variables or White block variable not set