command.Command Timeout

[czerwww]

Can someone please help me? I have class for database connection and I need set command.command Timeout. How can I do that?

Code:
Imports System.Data.Sql Client
Imports System.Data
Public Class Db
Private Shared _ConnString As String = ""
Private Shared _Connection As SqlConnection

Public Shared Sub SetConnectionSt ring(ByVal connString As String)
_ConnString = connString
End Sub

Public Shared Function GetReader(ByVal sqlStatement As String, ByVal params() As Object) As SqlDataReader
OpenConnection( )
Dim command As SqlCommand
command = FillParams(sqlS tatement, params)
Return command.Execute Reader(CommandB ehavior.CloseCo nnection)
End Function

Public Shared Function GetDataSet(ByVa l sqlStatement As String) As DataSet
Dim retDs As New DataSet
OpenConnection( )
Dim ad As New SqlDataAdapter( sqlStatement, _Connection)
ad.Fill(retDs)
_Connection.Clo se()
Return retDs
End Function

Public Shared Function Exec(ByVal sqlStatement As String, ByVal params() As Object, ByVal maOutput As Boolean) As ArrayList
Dim ret As ArrayList = New ArrayList
OpenConnection( )
Dim command As SqlCommand

command = FillParams(sqlS tatement, params)
command.Execute NonQuery()
For Each p As SqlParameter In command.Paramet ers
If p.Direction = ParameterDirect ion.InputOutput Or p.Direction = ParameterDirect ion.Output Then
Try
ret.Add(p.Value )
Catch : End Try
End If
Next
Return ret
End Function

Public Shared Function execCom(ByVal sqlStatement As String, ByVal params() As Object) As Int32
OpenConnection( )
Dim command As SqlCommand

command = FillParams(sqlS tatement, params)

Return command.Execute NonQuery()
End Function

Private Shared Function FillParams(ByVa l sqlStatement As String, ByVal params() As Object) As SqlCommand
Dim command As New SqlCommand(sqlS tatement, _Connection)


If Not params Is Nothing Then
Dim i As Int16
For i = 0 To params.Length - 1
command.Paramet ers.Add(CType(p arams(i), SqlParameter))
Next
End If
Return command
End Function

Private Shared Sub OpenConnection( )
If _Connection Is Nothing Then
_Connection = New SqlConnection(_ ConnString)
End If

If Not _Connection.Sta te = ConnectionState .Open Then
_Connection.Ope n()
Else
_Connection.Clo se()
_Connection.Ope n()
End If
End Sub


End Class