Module getsettings
    Public Function getpara(ByVal paramname As String)
        Dim rueckgabe As String
        Dim conn_para As OleDb.OleDbConnection
        Dim cmd_qry As OleDb.OleDbCommand
        conn_para.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Passwort..."
        cmd_qry.Connection = conn_para
        conn_para.Open()
        cmd_qry.CommandText = "Select value from settings where paramname='" & _
          paramname & "'"
        Dim dr_set As OleDb.OleDbDataReader = cmd_qry.ExecuteReader
        dr_set.Read()
        rueckgabe = dr_set.Item("value")
        conn_para.Close()
        Return (rueckgabe)
 
    End Function
End Module

       Dim autostart_form As String = getsettings.getpara("autostart_form")
       Dim autostart_form_name As String = getsettings.getpara( _
         "autostart_form_name")
       If autostart_form = "true" Then
       Me.chkAutostart_enable.Checked = True
       End If