Member Avatar for reynaldotaberna
reynaldotaberna 0 Newbie Poster

Private Sub Command1_Click()
sString = txtTitle.Text

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BIBLIO.mdb"
RS.CursorLocation = adUseClient

RS.Open "SELECT * FROM titles WHERE title= '" & txtTitle.Text & "'", CN
Set DataGrid1.DataSource = RS

End Sub

the code above is pretty good but it doesnt display any record in my Datagrid what seems to be the problem.

please help;)

  • 1 Contributor
  • 0 Replies
  • 47 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.