在VB .NET中，可以使用System.Data.SqlClient命名空间来打开和操作SQL数据库。以下是一个简单的示例代码，演示如何打开一个SQL数据库：

```vb
Imports System.Data.SqlClient

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"

Using connection As New SqlConnection(connectionString)
connection.Open()
MessageBox.Show("数据库已打开")
connection.Close()
End Using
End Sub
End Class
```

在上述示例代码中，你需要将`YourServerName`替换为SQL服务器的名称，`YourDatabaseName`替换为要连接的数据库的名称，`YourUsername`替换为数据库的用户名，`YourPassword`替换为数据库的密码。

使用`SqlConnetion`类的`Open()`方法可以打开数据库连接，使用`Close()`方法可以关闭数据库连接。在示例代码中，使用`Using`语句块来自动处理数据库连接的打开和关闭，确保在操作完成后正确关闭数据库连接。

请注意，打开数据库时可能还需要进行其他操作，如执行SQL查询、插入数据等等。以上示例代码仅演示了如何打开数据库连接。