Dim cmd As New OleDbCommand, reader As OleDbDataReader
Dim cParam As New OleDbParameter, intID As Integer
 
    intID = 1
 
    With cmd
      .Connection = frmMain.con
      .CommandType = CommandType.StoredProcedure
      .CommandText = "getAnschrift_ID"
      cParam.ParameterName = "@iID_Plz"
      cParam.DbType = DbType.Int32
      cParam.Direction = ParameterDirection.Input
      cParam.Value = intID
      .Parameters.Add(cParam)
    End With
 
    Try
 
      reader = cmd.ExecuteReader()
 
      Label1.Text = reader("Ort")
      Label2.Text = reader("Bundesland")
 
      reader.Close()
 
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try