Dim sok As Integer
        Try
            If Convert.ToDouble(TextBox1.Text) Then
                sok = TextBox1.Text
            End If
        Catch ex As Exception
            MsgBox("skriv tall!")
        End Try
        tilkobling = New MySqlConnection("server=mysql.stud.iie.ntnu.no;database=evenmof;uid=evenmof;Pwd=gyzQJzDq")
        tilkobling.Open()
        Dim sporring As New MySqlCommand("SELECT poststed FROM postnummer WHERE post_nr = @soktall", tilkobling)
        sporring.Parameters.AddWithValue("@soktall", sok)
        Dim leser = sporring.ExecuteReader()
        While leser.Read()
            ListBox1.Items.Add(leser("poststed"))
        End While
        leser.Close()
        tilkobling.Close()