Try This.

Dim strUserName As String, strPassword As String
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

 

 

Public Sub OpenCon()
    Set con=new ADODB.Connection
    if con.state = 0 then

    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\database\enrollment.mdb"

    end if

End Sub

 

Private Sub cmdlogin_Click()
Set rs=new ADODB.Recordset
OpenCon

rs.Open "SELECT * FROM [tbladmin] WHERE [username]= '" & txtUsername.Text & "'", con, adOpenStatic, adLockOptimistic

 

        If rs.RecordCount <> 0 Then

            If rs![Password] = txtPassword.Text Then

                If rs![user_type] = "Principal" Then

                          

                    MsgBox "The Principal has login", vbOKOnly + vbInformation, "LOGIN"

                        frmMain.Transaction.Visible = True

                        frmMain.Maintenance.Visible = True

                        frmMain.Reports.Visible = True

                        frmMain.Exit.Visible = True

                        frmMain.Others.Visible = True

                        frmMain.Files.Visible = True

                        Login1 = 1

                        'frmMain.Text3 = Text1.Text

                        'frmMain.Text4 = TimeValue(Now)

                    End If

           End If

      End If

End Sub

make a simple Inventory System that has SQL database!
and make it in WPF or Silverlight platform.

DO you include the text file in your setup?
Or make sure the path of the text file is valid so that the textfield can see it.

I modify the itemsource of datagrid by adding MaterialCode where the First column of datagrid stored the data.

 public class SRItems
        {
            public string MaterialCode { get; set; }
            public string Description { get; set; }
            public string  Quantity { get; set; }
            
        }

and then also adding binding to autocompletebox

 <DataGridTemplateColumn FocusManager.FocusedElement="{Binding ElementName= autoCompleteBox1}" Header="Material Code" Width="180" x:Name="autoCompleteBox2">

                    <DataGridTemplateColumn.CellTemplate >
                        <DataTemplate >
                            <TextBlock  Text="{Binding MaterialCode}" />                                
                        </DataTemplate>
                        
                    </DataGridTemplateColumn.CellTemplate>
                    <DataGridTemplateColumn.CellEditingTemplate>

                        <DataTemplate>
                            <my:AutoCompleteBox HorizontalAlignment="Left" SelectedItem ="{Binding MaterialCode}" Margin="0,0,0,0" ItemsSource ="{Binding AllRoles, RelativeSource={RelativeSource FindAncestor, AncestorType=UserControl}}" x:Name="autoCompleteBox1" VerticalAlignment="Top" Width="180"/>
                        </DataTemplate>

                    </DataGridTemplateColumn.CellEditingTemplate>

                </DataGridTemplateColumn>

unfortunately i can't make it work, the problem is still occur.
Any help is appreciated... Thanks