Dim conn As OleDbConnection
		conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
		"Data Source=C:\xyz" & _
		"Jet OLEDB:Database Password=xyz;")
    Dim nonqueryCommand As OleDbCommand = conn.CreateCommand()
    Dim myPWort As String = ""
    Try
      conn.Open()
      Dim com As New OleDbCommand( _
      ("SELECT * FROM tbluser ORDER BY UserID ASC"), conn)
      Dim dr As OleDbDataReader = com.ExecuteReader()
      dr.Read()
      myPWort = CStr(dr!passwort)
      dr.Close()
      '//MessageBox.Show(CStr(myPWort)) ' Kontrolle(ident!)

'*Dim rd As New RijndaelManaged
      '*Dim rijndaelIvLength As Integer = 16
      '*Dim md5 As New MD5CryptoServiceProvider
      '*Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes( 
      ' TextBox1.Text))
 
      '*md5.Clear()
 
      '*Dim encdata() As Byte = Convert.FromBase64String(TextBox2.Text)
      '*Dim ms As New MemoryStream(encdata)
      '*Dim iv(15) As Byte
 
      '*ms.Read(iv, 0, rijndaelIvLength)
      '*rd.IV = iv
      '*rd.Key = key
 
      '*Dim cs As New CryptoStream(ms, rd.CreateDecryptor, 
      ' CryptoStreamMode.Read)
 
      '*Dim data(CInt(ms.Length - rijndaelIvLength)) As Byte
      '*Dim i As Integer = cs.Read(data, 0, data.Length)
 
      '*TextBox1.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
      '*cs.Close()
      '*rd.Clear()
 
      '//If TextBox1.Text <> DecryptErgebnis Then
        '//Dim StringNo As String = "abbruch"
        '//Me.pBoxCon.Image = CType(My.Resources.ResourceManager.GetObject( 
        ' StringNo), Image)
        '//Me.pBoxCon.Refresh()
        '//lblVersuch.Visible = True
        '//lblVersuch.Text = CStr(mlAttempt + 1) & ". Versuch"
        '//If mlAttempt < 3 Then
          '//mlAttempt = mlAttempt + 1
          '//TextBox1.Text = ""
          '//TextBox1.Focus()
        '//Else
          '//Dim result As Windows.Forms.DialogResult
          '//result = MessageBox.Show("Das war der " & CStr(mlAttempt) & "." & _
            "'//Versuch, " & vbCrLf & _
          '//"Programm wird beendet!", "Unbefugter Zugriff", 
          ' MessageBoxButtons.OK, MessageBoxIcon.Error)
          '//Me.Dispose()
          '//Me.Close()
          '//Application.Exit()
        '//End If
      '//Else
        '//Dim StringYes As String = "ResultOK"
        '//Me.pBoxCon.Image = CType(My.Resources.ResourceManager.GetObject( 
        ' StringYes), Image)
        '//Me.pBoxCon.Refresh()
        '//Application.DoEvents()
        '//Threading.Thread.Sleep(1000)
        '//Me.Dispose()
        '//Me.Close()
        '//Dim frmStart As New frmStart
        '//frmStart.ShowDialog()
        '//frmStart.Dispose()
      '//End If
    Catch sqlExc As SystemException
      MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
      MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      If conn.State = ConnectionState.Open Then conn.Close()
    End Try