Back to .Net Form

  Private Sub lstBases_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstBases.DoubleClick
    rs.Database_Name = lstBases.Text
    rs.Password = ""
    rs.Encrypt = False
    If rs.Open_Database = 0 Then
      Enable_Controls(True)
      lstTables.Items.Clear()
      lstRecords.Items.Clear()
      txtSql.Text = ""
      Get_List_Of_Tables()
    Else
      MsgBox("Failed - " & rs.Error_Message)
    End If
  End Sub