Imports System.Data.SqlClient
Public Class frmadmin
    Inherits System.Windows.Forms.Form
 
 
Sub ReadData()
Dim conn As New SqlConnection( _
          "Password=chanri;Persist Security Info=false;" & _
          "User ID=bo;Initial Catalog=timemanager;" & _
          "Data Source=192.168.1.1;")
        'Dim conn As New SqlConnection( _
        '      "Password=sa;Persist Security Info=True;" & _
        '      "User ID=sa;Initial Catalog=timemanager;" & _
        '      "Data Source=LOCALHOST;")
 
        Dim SQL As String = "SELECT * FROM bowoche"
        Dim da As New SqlDataAdapter(SQL, conn)
        Dim cmdB As New SqlCommandBuilder(da)
        Dim ds As New DataSet()
 
       conn.Open()
        da.Fill(ds, "bowoche")
        'da.Fill(ds, "Tabellenname")
        conn.Close()
 
        Dim dt As DataTable = ds.Tables("bowoche")
        'Dim dt As DataTable = ds.Tables("Tabellenname")
        Dim dr As DataRow
 
        For Each dr In dt.Rows
            Me.ListView1.Items.Add(dr("Famname"))
            'Me.ListView1.Items.Add(dr("Feldname"))
        Next
    End Sub
End Class
/code]
 
Sobald der Debugger zur zeile
<pre><code>conn.Open()