Imports System.Data.SqlClient
 
 
Public Class Form1
	Inherits System.Windows.Forms.Form
 
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 
 
    	Dim strConnection As String = "Password=xy;Persist Security Info=True;" & _
  	"User ID=user0;Initial Catalog=test;" & _
  	"Data Source=190.45.678;"
    	MsgBox("Verbindung hergestellt")
 
    	Dim conn As SqlConnection = New SqlConnection(strConnection)
 
 
 
    	Dim SQL As String = "Select * from Artikel where artid = 1 order by artid "
    	Dim da As New SqlDataAdapter(SQL, conn)
    	Dim cmdb As New SqlCommandBuilder(da)
    	Dim ds As New DataSet()
 
    	da.Fill(ds, "artikel")
 
    	Dim dt As DataTable = ds.Tables("Artikel")
 
 
    	Dim anzahl As Integer = ds.Tables("artikel").Rows.Count - 1
 
    	ds.Tables("Artikel").Rows(0).BeginEdit()
    	For i As Integer = 0 To anzahl
        	ds.Tables("Artikel").Rows(i).Item("altean") = "format(now)"
    	Next
 
    	MsgBox("fertig")
 
 
    	da.Update(ds, "artikel")
 
 
        	ListBox1.DataSource = dt
        	ListBox1.DisplayMember = "altean"
 
 
	End Sub
 
 
 
End Class