Er der nogen der kan finde fejlen? HJÆÆÆLP

Hej.
Nu skulle det være på plads. *G*

Jeg kan ikke få dette program til at køre. Er der en eller nogen der kan gennemskue fejlen eller fejlene, så ville jeg blive meget glad.

På forhånd tak for hjælpen.

LadyHawk :o)

------------------------------------
Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Form1 Inherits System.Windows.Forms.Form

Dim Venner As New DataSet()

    Private Sub Form1_Load(ByVal sender As System.Object,    ByVal e As System.EventArgs) Handles MyBase.Load
       
Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" & Application.StartupPath & "\friends.mdb")
       
Dim MyAdap As New OleDbDataAdapter("select * from vennetabel", MyCon)

Venner.Reset()
MyAdap.Fill(Venner)
DataGrid1.DataSource = Venner
DataGrid1.SetDataBinding(Venner, Venner.Table(0).ToStrings
nrpost.Text = Venner.Tables(0).Rows.Count.ToString
FillLists()

End Sub
    Private Sub UpdateLists(ByVal nr As Integer)
        ListBox1.SelectedIndex = nr
        ListBox3.SelectedIndex = nr
        ListBox3.SelectedIndex = nr
        ListBox4.SelectedIndex = nr
    End Sub

Private Sub FillLists()
Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" &
        Application.StartupPath & "\friends.mdb")
Dim MyAdap As New OleDbDataAdapter("select * from vennetabel", MyCon)

Dim a, i As Integer
    a = Venner.Tables(0).Rows.Count - 1
    Venner.Clear()
    MyAdap.Fill(Venner)
    ListBox1.Items.Clear()
    ListBox2.Items.Clear()
    ListBox3.Items.Clear()
    ListBox4.Items.Clear()

    For i = 0 To a
    ListBox1.Items.Add(Venner.Tables(0).Rows.Item  ("telefon"))
    ListBox2.Items.Add(Venner.Tables(0).Rows(i).Item("Navn"))
    ListBox3.Items.Add(Venner.Tables(0).Rows.Item("adresse"))
    ListBox4.Items.Add(Venner.Tables(0).Rows(i).Item("postby"))
    Next
    End Sub

Private Sub SletTextBoxe()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.click
        Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" &
        Application.StartupPath & "\friends.mdb")
        Dim MyAdap As New OleDbDataAdapter("select * from vennetabel", MyCon)

Dim i As Integer
  If CInt(nrpost.Text) > Venner.Tables(0).Rows.Count Then
  nrpost.Text = Venner.Tables(0).Rows.Count).ToString
End If

i = CInt(nrpost.Text) - 1
    Venner.Clear()
    MyAdap.Fill(Venner)
    TextBox1.Text = Venner.Tables(0).Rows(i).Item("telefon")
    TextBox1.Text = Venner.Tables(0).Rows(i).Item
("Navn")
    TextBox1.Text = Venner.Tables(0).Rows(i).Item("adresse")
    TextBox1.Text = Venner.Tables(0).Rows(i).Item
("postnr")
    TextBox1.Text = Venner.Tables(0).Rows(i).Item
("postby")
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" &
Application.StartupPath & "\friends.mdb")
Dim MyAdap As New OleDbDataAdapter("select * from vennetabel", MyCon)

Dim MySQL As String = "UPDATE vennetabel SET Navn ='" &
        TextBox2.Text & "',adresse = '" &
        TextBox3.Text & "',postnr = '" &
        TextBox4.Text & "',postby & '"
        TextBox5.Text & "' where telefon = '" &
        TextBox1.Text & "'"

        Dim Cmd As New OleDbCommand(MySQL, MyCon)
        MyCon.Open()
        Cmd.ExecuteNonQuery()
        MyCon.Close()
        Venner.Clear()
        MyAdap.Fill(Venner)
        FillLists()
    End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" &
Application.StartupPath & "\friends.mdb")

Dim MyAdap As New OleDataAdapter("select * from vennetabel", MyCon)

        Dim MySQL As String = "DELETE FROM vennetabel where telefon = '" & TextBox1.Text & "'"

        Dim Cmd As New OleDbCommand(MySQL, MyCon)
        MyCon.Open()
        Cmd.ExecuteNonQuery()
        MyCon.Close()
        Venner.Clear()
        MyAdap.Fill(Venner)
        FillLists()
        SletTextBoxe()
  End Sub

Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim MyCon As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" &
        Application.StartupPath & "\friends.mdb")

Dim MySQL As String = "INSERT into vennetabel (telefon, navn, adresse, postnr, postby) values ('" &
        TextBox1.Text & "','" &
        TextBox2.Text & "','" &
        TextBox3.Text & "','" &
        TextBox4.Text & "','" &
        TextBox5.Text & "')"

        Dim Cmd As New OleDbCommand(MySQL, MyCon)
        MyCon.Open()
        Cmd.ExecuteNonQuery()
        MyCon.Close()
        Venner.Clear()
        MyAdap.Fill(Venner)
        FillLists()
    End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        nrpost.Text = (ListBox1.SelectedIndex + 1).ToString
        UpdateLists(ListBox1.SelectedIndex)
        Find(ListBox1.SelectedIndex)
    End Sub
    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        nrpost.Text = (ListBox2.SelectedIndex + 1).ToString
        UpdateLists(ListBox2.SelectedIndex)
        Find(ListBox2.SelectedIndex)
    End Sub

    Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
        nrpost.Text = (ListBox3.SelectedIndex + 1).ToString
        UpdateLists(ListBox3.SelectedIndex)
        Find(ListBox3.SelectedIndex)
    End Sub

    Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged
        nrpost.Text = (ListBox4.SelectedIndex + 1).ToString
        UpdateLists(ListBox4.SelectedIndex)
        Find(ListBox4.SelectedIndex)
    End Sub
End Class