Public Class frm_Stichwort_hinzufuegen
    Inherits System.Windows.Forms.Form
    Private Const connString As String = _
      "dsn=CRM;uid=sa;pwd=a;Provider=SQLOLEDB"
    Private conn As New OleDb.OleDbConnection(connString)
    Private da1 As OleDb.OleDbDataAdapter
    Private ds1 As New DataSet
    Private dt1 As DataTable
    Private dv1 As DataView
 
    Private Sub btn_Abbrechen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Abbrechen.Click
        Me.Hide()
    End Sub
 
    Private Sub frm_Stichwort_hinzufuegen_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim sql1 As String = "SELECT * FROM tbl_stichwort"
        Dim conn As New OleDb.OleDbConnection(connString)
        da1 = New OleDb.OleDbDataAdapter(sql1, conn)
        dt1 = ds1.Tables("tbl_Stichwort")
        dv1 = dt1.DefaultView
 
        Try
            da1.FillSchema(ds1, SchemaType.Source, "tbl_Stichwort")
            da1.Fill(ds1, "tbl_Stichwort")
        Catch ex As System.Exception
            MsgBox("DB read failed: " + ex.ToString())
            Return
        End Try
 
 
        lbx_Links.DataSource = dv1
        lbx_Links.DisplayMember = "stichwort"
        lbx_Links.ValueMember = "s_id"
 
    End Sub
End Class