Back to .Net Form

  Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
    rs.Database_Name = InputBox("Please enter the path and the database name", "Create Database", "\My Documents\TestDB.SDF")
    If rs.Database_Name = "" Then
      Exit Sub
    End If
    rs.Password = ""
    rs.Encrypt = False
    If Not rs.Create_Database = 0 Then
      MsgBox(rs.Error_Message)
    Else
      MsgBox(rs.Info_Message)
    End If
  End Sub