VB Code:
  1. Private Sub tbUser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbUser.KeyPress
  2.         Dim con As New OleDb.OleDbConnection
  3.         Dim cmd As New OleDb.OleDbCommand
  4.         Dim da As New OleDb.OleDbDataAdapter
  5.         Dim ds As New DataSet
  6.         If e.KeyChar = Convert.ToChar(Keys.Enter) Then
  7.             Try
  8.                 con.ConnectionString = "Provider = Microsoft.JET.OLEDB.4.0 ; data source = (local); " & _
  9.                 "initial catalog=dbGA ; integrated security =SSPI;"
  10.                 con.Open()
  11.                 cmd = con.CreateCommand
  12.                 cmd.CommandText = "SELECT * FROM tbl_login"
  13.                 da.SelectCommand = cmd
  14.                 DataGrid1.DataSource = ds
  15.                 DataGrid1.DataMember = "tbl_login"
  16.                 da.Fill(ds, "tbl_login")
  17.                 con.Close()
  18.             Catch ex As Exception
  19.                 MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly)
  20.             End Try
  21.         End If
  22.     End Sub


Everytime I run this program and presses enter a messagebox will show saying that...
"Error: Microsoft OLE DB Service Components: Multiple-step OLE DB Operation generated errors. Check each OLE DB status value, if available. No work was done"

I hope someone could solve this...
Thanks..
By the way using VB.NET 2003 and ACCESS 2003..