Imports System.Data.OleDb Public Class frmmain Dim da As OleDbDataAdapter Dim cmd As OleDbCommand Dim redred As OleDbDataReader Dim count As String Dim str As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click frmadd.Show() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim upass As String ' Dim resu As String upass = Text2.Text Dim con As New OleDb.OleDbConnection Try con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\project\login.mdb" con.Open() str = "select pass from table1 where pass = ('" + upass + "')" cmd = New OleDbCommand(str, con) cmd.ExecuteNonQuery() 'While redred.Read() Label3.Text = redred("pass") 'End While Text1.Text = "" Text2.Text = "" Label3.Text = "Opened" Catch ex As OleDb.OleDbException Label4.Text = "error" Finally con.Close() Label5.Text = "closed" End Try End Sub End Class
This post has been edited by syed_hassan: 07 September 2009 - 12:02 AM